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Ope $ User access mode - AST reentrant. 

Go4§ i AUTHOR: Donald G. Petersen, CREATION DATE: 19-Feb-79 

$048 

004 

004 DGP, 19-Feb-79 : VERSION 01 

004 -001 - original. DGP 19-Feb-7 

004 -002 - Put () after JSB to BASSSREC_GSE so Bliss won't optimize it out. 
DGP 22-Feb-79 


1 
2 
ed- 
3 = Add BASSGET_RECORD. DGP 02-Mar-79 
4 - More work on relative 1/0. OGP 05-Mar-79 
5 - Add all of the trash for ‘foreign buffers’. DGP 26-Mar-79 
$ - Make all external references use general eddregs ing. 385 28-MAR-1979 
- Remove library file RTLSTARLE, not used. JBS 28-MAR-1 
08 - Load register cce properly before second call to CB_POP. 
JBS 29-MAR-19 
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| BASSGET 16-Sep-1984 00:34: AX-11 Bliss<-32 V4.0-74 
| 14-Sep-19 4 99: 26:98 BASRTL SREIBASGET 83224 
; 1 001 MODULE BASSGET ( ! Basic GET constru 

: ¢ Oe — = '1-021' ' File: bacget bee edyt PLL 021 
es eh 

: § 44) : eR eER AREER RAREAAAEET TEER TEA AEE ATE TARARAREREAAAEReA AEE 
; 'e * 
; 8 008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
3 9 009 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . 
H 19 Biy ! ALL RIGHTS RESERVED. * 
; H e 
: \§ ois 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
3 ¥ 13.1 !* ONLY IN. ACCORDANCE WITH THE OF SUCH LICENSE AND WITH THE * 
; «614 14 1 !* INCLUSI THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
36 | 93 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 8018 7 3¢ @ RSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 \ Bele : is TRANSFERRED. * 
; : e 
; 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; sf boSs 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $3 8053 : » CORPORATION. * 
P : *® 
; 38 0098 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 4 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; & 0025 1 !* * 
:: & 00 1 !e * 
: a7? 00 1 See eee eee EEA RA AEA AEA RARER E REAR R EERE TAREE TERE E AERA ARERR RAREAAERAEAER REE 
3; @ 0028 1! 

; 9 94 1 

; 0 0030 1 !++ 

32 0082 : i Joist’ =? Lib Llabl 

3 asic support rary - user callable 

; 33 0088 1 | : 

3; #2 0034 1 ! ABSTRACT: 

oe 0035 1! This module is the UPI Level of the Basic GET construct. Initially, 
3 38 0036 1 it contains only the code for sequential 1/0. This module will set 

3 $ it : up the 1/0 data base for the LUN and dispatch to the UDF level. 

; 0039 1! 

:; 40 Bnd 1 ! ENVIRONMENT: 

: «641 0 1 

: ri 1 

3s 6 1 

: 44 1 

s 65 1 

; 46 1 

ee, 1 

; 48 1 

; 6449 1 

5; 1 

+ a : 

; 33 1 

; 654 1 

. 2 1 

; 1 

a a 1 
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1$-$ep-1964 00:54:90 yarctt BLie6=52 yé.02749 
Add GET indexed. DGP 03-Apr 


-79 
pas $20, many arguments in Fall to BASSSREC_GIN in BASSGET_KEY. 
Veeet ighannel 9, correctly and check for channel not open. 


Say up ISBSA_USER_FP. JBS 25-JUL-1979 
$ virtual array usage and set block use flag. DGP 16-Oct-79 
Signal ILLIO CHA_if channel passed is less than zero. FM 10-sep-80 
Pass to BAS$SCB_P PUSH, LUBSK_ILUN_MIN¢2,_as ar sult GET #0 BASIC 
statement will generate ”. érror. FM 17+S 
Undo 15. We can now do 1/0 to #9. b prcouse ¢ BASSPUT will now use 
yyrenen buffer mechanism to do # 

Fn’$eje a sgyete of comments to Ba Bass, “Ray channel b° problem is fixed. 


Add saaerd for RFA ‘net and manual re -June49 5 PLL 11-Jun-82 


Include RFA entry poi 1982 
Allow REGARDLESS (RRL bit) without UNLOCK EXPLICIT (ULK bit). PLL 10-Jun-1982 


! <BLF /PAGE> 
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14-Sep-1984 BASRTL B ae 33 


ilegs 
SRC JB 32; (2) 


SWITCHES: 


Ssss 


NNSA AMM MAIO OO ODO0OOS 


AVVO DWIWIWIWININVNNINNINMNNIN 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
+ 


LINKAGES 


REQUIRE "RTLIN:OTSLNK'; 
i] 


TABLE OF CONTENTS: 


Define all Linkages 


FORWARD ROUTINE 
BASSGET_RECORD : NOVALUE, 
BASSGET-KEY : NOVALUE, 
BASSGET~: NOVALUE, 
BASSGET_RFA : NOVALUE; 


UPI Level Relative GET 
UPI Level Indexed GET 
UPI Level Sequential GET 
UPI Level RFA GET 


INCLUDE FILES: 


REQUIRE ‘RTLML:OTSISB'; 
REQUIRE ‘RTLML:BASPAR’; 


ISB definitions 
Basic literal for foreign buffer kludge 


Sis nuke 
MAE WN 2 ODDNAUS WN —OC@OC ARUN OD 


DOOOCOOOSOCSOSCCSOOCOSOCOOOCOOOOOOOSOOSoSoSOO 


: i REQUIRE ‘RTLML:OTSLUB'; ! LUB definitions 
: +44 REQUIRE "RTLIN:RILPSECT’; ! Define DECLARE_PSECTS macro 
: ace LIBRARY ‘"RTLSTARLE'; ' System symbols 
1 0964 ' 
1 0965 MACROS: 
1 0966 
1 0967 NONE 
2 0968 
2 0969 EQUATED SYMBOLS: 
2 0970 
0971 NONE 
bae 
97 


PSECT DECLARATIONS: 
ECLARE_PSECTS (BAS); 
OWN STORAGE : 

NONE 
EXTERNAL REFERENCES: 
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13-358-1382 99:88:08 easAT ae Saasce tose, Page 35 


—— ROUTINE 
BASSSOPEN_ZERO; ! Open ‘channel 0°° 


eee ASSK 10. CHANOT 


; 1 

> 1 

3 3 § 1 

; 140 1 

; (141 1 HANOT : uns 1 ones (8), ' 1/0 channel not o 

3 18 1 BASSK: “ILC ICLACE : UNSIGNED (8), ' Illegal or illogical access 

; «6146 1 BASSK_ILLIO_CHA : UNSIGNED (8), ' Illegal 1/0 channel 

; re | ! BASSK_ILLRECLOC : UNSIGNED (8); ! [lLlegal record locking clause 

; 138 1 EXTERNA Rss Md 

3; 146 1 BASSSREC_GIN : JB REC ‘y4 Rm ! REC Level - RMS jacertece. GET indexed 
5 168 1 BASSEnEccs : JSB_DO NOVALUE, ' REC Level = RMS interface i relative 
; 133 ! REC_GSE : JSB_DO- READ NOVALUE , } aes level erepese tng - RMS interface 

: ! sequent 

3 134 1 passer GREA : JSB b0 READ NOVALUE, ' REC lover - GET by RFA 

3; 1 ; 1 BAS$$CB_PUSH : JSB_CB_PUSH NOVALUE, ! Push down 1/0 systen 

: + 1 BASSSCB-POP : ‘3B CB_POP NOVALUE, ! Pop 1/0 system back one (CB 

3; «6154 1 BASSSSTOP. 10: NOVALOE, ! Signal fatal 1/0 errors 

; 13? : BASSS$STOP™: NOVALU UE; ' Signal fatal BASIC error 


14 
Toot HS$eoctgGs O0:36:98  YNGHY,Shenakz v4 -052 


3 138 1005 1 GLOBAL ROUTINE BASSGET ( ! GET sequential 

a. ? 1 1 T, ! logical unit number 

; 160 18 1 LOCK_FLAGS ! manual locking flagss 

: 16 1 38 1 ) : NOVACUE = 

3; % 1009 1 

3; 1 1010 1 !4¢ 

; 188 : Y} ! FUNCTIONAL DESCRIPTION: 

; HF 1918 1! This routine will set up the 1/0 data base for this LUN if necessary 
3 1014 1! and then dispatch off to the REC level. When control is returned to 
; 168 1015 1! this routine, it pops the CCB off of the 1/0 system. The actual inter- 
: 169 1016 face to RMS is done at the REC level. One record is read. 

; 171 9 1 ! FORMAL PARAMETERS: 

3 76 1019 1! 

get: 1020 1! ong yt: Logical unit number 

: (176 1021 1! LOCK_FLAGS.rlu.v] if present, bits to pass on to record level to 
3 95 10 § ,! control manual record locking 

3 176 13 1! 

: 177 10246 1 ! IMPLICIT INPUTS: 

s 178 196? 1! 

; 179 10 $ a LUBSV_VA_USE virtual array usage 

; 180 1027 1! 

; «181 1028 1°! IMPLICIT OUTPUTS: 

3 182 1029 1! 

; «185 10350 1! OTS$$SA_CUR_LUB ointer to current control block 

; «(186 1031 1! RE asic Global which contains the number of bytes read 
; «185 1936 1! ISBS$B_STTM_TYPE the statement type 

3 196 Ht : LUBSV_BLK_OSE this file has been used for other than virtual 1/0 
; 188 1035 1 ! COMPLETION CODES: 

3; «#6189 1036 1! 

; 190 1037 1! NONE 

3; «191 1038 1! 

3 135 1039 1 ! SIDE EFFECTS: 

3; 1040 1! 

3 194 1041 1! RECOUNT is assigned the number of bytes read. 

3; «6195 Ho 1! pienete: 

; 196 1045 1! BASS$K_IO_CHANOT (1/0 channel not open) 

; 197 1044 1! BASSK_ILCIO_CHA (illegal 1/0 channel) for foreign buffers. 

; 198 1045 1! 

3; 199 H 1 !-- 

; 200 1047 1 

3 4 1068 BEGIN 

3 ¢ 104 

: 20 1050 BUILTIN 

; 204 1051 

3 205 1058 ACTUALCOUNT; 

3 5] 105 

; a 1938 LITERAL 

: 208 1055 K_LOCK_ARG = 2; 

; 209 1928 

; 210 105 GLOBAL REGISTER 

: a 1938 CCB = K_CCB_REG : REF BLOCK C, BYTE); 

3 ig 1060 LOCAL 

: 214 1061 FMP : REF BLOCK C, BYTE), 


ee 


; 


M14 
ASSGET 16-Sep-1984 00:34: AX-11 Bliss-32 V4.0-74 P 
et 1 =300 71382 90:33:08 YBASRTL SRC IBASGET 832; one 
3 23 1 ; ACTUAL WNIT, ! Unit number, without foreign buffer 
: ; ? TEMP_RT1, ! CCB for foreign buffer, or 0 
ee ie 
: 1987 ; If channel is less than zero then signal an error. 
; é 1969 IF ( .UNIT LSS 0 ) THEN BASSS$STOP(BASSK_ILLIO_CHA); 
: 4 1074 1, FMP = FP: 
; § 1998 i Check for “foreign buffers”. if the unit number exceeds 255 then a foreign 
; 1074 : buffer is specified. The foreign buffer is actually a unit number whose 
3 8 1075 ! buffer is to receive the record which is read. The ‘‘foreign buffer’’ unit 
3 9 1076 ! is pushed to pick up the CB address which is passed to the REC level. Then 
3 1077 ! the unit pointing to the file is pushed so that the CCB points to the toge 
: 1 1078 ' ical unit which actually do the 1/0. Upon return, the necessary RAB fields 
: ¢ + 14 (USZ and UBF) have been restored and two CB_POPs are done if necessary. 
: 234 1081 2 TEMP_R11 = 0; 
3 $2 1 ACTUAL_UNIT = .UNIT; 
> 237 1084 IF (.UNIT GTR LUBSK_LUN_MAX) 
; 238 1085 THEN 
3 +44 1086 BEGIN 
; 240 1087 
: 241 ines LOCAL 
; he 1089 FORE IGN_BUF FER; 
; Sti 1091 FOREIGN BUFFER = .UNIT/BASS$K_LUN MAX; 
; st? 16 ACTUAL_ONIT = .UNIT MOD BASSR_LUN_MAX; 
: sen Hy: 3 IF (. FOREIGN BUFFER GTRU BASSK_MAX_FOR_B) THEN BASSSSTOP (BASSK_ILLIO_CHA); 
3 $49 1096 BASSS$CB_PUSH (.FOREIGN_BUFFER, LUBSK_LUN_MIN); 
; 230 1097 CCB CISBSA_USER_FP) = <FMP CSFSL_SAVE_FPT; 
; 252 4 IF ( NOT .CCB CLUBSV_OPENED]) THEN BASSS$STOP_IO (BAS$K_IO_CHANOT); 
; 254 1101 TENP_RIT = CCB; 
$e Ny oo 
; $34 1105 i Worry about channel zero. If the actual unit number is zero, make sure 
3 $23 1138 : “channel 0°’ is open and use its input side so #0 1/0 can work. 
: 261 1108 2- 
3 $¢ 119) IF (.ACTUAL_UNIT EQL 0) THEN ACTUAL_UNIT = LUBSK_LUN_INPU; 
3 264 1111 BAS$$CB_PUSH (.ACTUAL_UNIT, LUBSK_ILUN MIND; 
3 265 W11¢ CCB CISBSA_USER_FP] =".FMP CSFSL_SAVE_FP); 
; 6 1114 i If we are on a default unit (unit number Less than zero) then 
: 268 1115 ! we can open it if it is not already open. Otherwise it must 
5 +4 BB ' be open already. 
F} 0 111 te 
3: 271 1118 
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16-Sep-1984 00:34: AX=11 Bliss-32 V4.0-74 
1 7305-138 99:33:88 BASRTL SRE IBASGET 83271 
IF ( NOT .CCB CLUBSV_OPENED]) 
THEN 


IF (.ACTUAL_UNIT LSS 0) 
THEN 


BEGIN 
BASSSOPEN_ZERO (.FMP CSFSL_SAVE_FP]) 


BEGIN 
BASSSSTOP_I0 (BASSK_10_CHANOT) ; 


CCB CISBSB_STTM_TYPE] = ISBSK_ST_TY_GSE; 
Check for virtual array usage and set block usage. 


IF .CCB CLUBSV_VA_USE] EQL 1 THEN BASS$S$STOP_IO(BASSK_ILLILLACC); 
CCB CLUBSV_BLK_USE) = 1; 


IF ACTUALCOUNT () LSS K_LOCK_ARG 
FLAGS = 0 
ELSE 
BEGIN 
; The ULK bit must set unless this is a REGARDLESS clause. 
CASE .CCB CRABSV_ULK] FROM 0 TO 1 OF 


(0): 
od (.LOCK_FLAGS AND RABSM_RRL) NEQ 0 
ex gel tAGS = -LOCKFLAGS 
BASSSSTOP_I1O (BASS$K_ILLRECLOC); 
(1): 
FLAGS = .LOCK_FLAGS; 
TES; 
END; 
BASSSREC_GSE (.TEMP_R11, .FLAGS); 
! Now that the GET has been done, pop the CCB off the 1/0 system. 
BASSSCB_POP (); 


i Pop the “foreign buffer” CB if necessary. It is kept on the CB stack until 
: now to guard against an AST closing the foreign buffer channel. 


EL 
1+ 
! Now that the data base is in place, store the statement type and go 
directly to the REC level. 


IF (.TEMP_R11 NEQA 0) 
THEN 


Page 
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\- -Sep-19 BASRTL.SRCJBA -B32; (3) 
: 329 117 BEGIN 
: 330 1199 CCB = .TEMP_R11; 
; 1 1128 BAS$S$CB_POP™(); 
: é 117 END; 
3 1180 
: 334 1181 END; 'End of BASSGET 
.TITLE BASSGET 
SIDENT \1-027\ 
.EXTRN BASSSOPEN_ZERO, BASS$K_10_CHANOT 
“EXTRN BASSK_ILLILLACC 
sEXTRN BASSK-ILLIO_CHA 
-EXTRN BASS$K-ILLRECLOC 
.EXTRN BASSSREC_GIN, BASSSREC_GRE 
.EXTRN BASSSREC-GSE, BASSS$REC GRFA 
-EXTRN BAS$$CB_PUSH, BASS$$CB 
-EXTRN BASSS$STOP_10, BASSSSTOP 
-PSECT _BASSCODE,NOWRT, SHR, PIC,2 
OBFC 00000 .ENTRY BASSGET, Save R2,R3,R4,R5,R6,R7,RB,R9,R11 = 1005 
59 000000006 00 9€ 00002 MOVAB BASS$$CB_POP, ; 
58 000090006 00 9E 90009 MOVAB BASS$S$CB~PUSH, RB : 
57 000000006 00 9€ 00010 MOVAB BASSS$STOP, R : 
56 000000006 00 9 90017 MOVAB BASSS$STOP_IO, R6 F 
58 04 AC DO OOO1E MOVL UNIT, R11 + 1069 
07 18 00022 BGEQ ; 
7E 006 BF 9A 00024 MOVZBL #BASSK {LL 10 CHA, -(SP) : 
67 01 FB 00028 CALLS #1, BASSS$STOP 3 
53 5D 00 990 B 1S: MOVL Pp; FMP + 1071 
55 (4 00 E CLRL ‘TEMP_R11 + 1081 
54 58 DO 00 9 MOVL R11, ACTUAL_UNIT > 108 
00000077 BF 58 D1 0003 CMPL R11, #119 : 108 
3E 15 OO003A BLEQ 4$ : 
52 5B 00000100 BF C7 0003¢ DIVL3 #256, R11, FOREIGN_BUFFER : 109 
7E 00 58 1 7A 00044 EMUL #1, R11, #0, -(SP) : 109 
54 54 BE 00000100 8F 7B 00049 EDIV #256, ($P)+, ACTUAL_UNIT, ACTUAL_UNIT : 
0000007F BF 52 D1 00052 CMPL FOREIGN_BUFFER, #127 > 1094 
07 1B 00059 LEQU «2S ; 
7E 006 8F 9A 00058 MOVZBL #BASS$K_ILLIO CHA, -(SP) : 
67 01 FB 0005F CALLS #1, BASSS$STOP ; 
30 D4 00062 2$: CLARL sR > 1096 
68 16 00064 JSB BAS$$CB_PUSH : 
FF4C CB oc A3 09 9066 MOVL 12(FMP)> -180(CCB) + 1097, 
07 FC «AB 3 006C BLBS  -4(CCB) : 1099 
7E 006 8F 9A 00070 MOVZBL #BASSK {o CHANOT, -(SP) ; 
66 Ee. 0074 CALLS #1, BAS$$STOP_IO : 
g B DO 00077 33: MOVL CCB, TEMP_R11 : 110 
54 D5 OO07A 4$: TSTL | ACTUAL_UNTT > 110 
03 12 0007C¢ BNEQ ; 
54 7 CE 0007E MNEGL #7, ACTUAL UNIT : 
50 8 ¢ 81 5$ MNEGL #8. R : 1111 
52 4 D0 O84 MOVL ACTUAL UNIT, R2 : 
68 16 00087 JSB BAS$$CB_PUSH ; 
FF4C CB 0c a3 00 00089 MOVL 12(FMP)7 -180(CCB) : 1112 
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, 15 
_BASSGET 1b-Sep-1 4 AX-11 Bliss-32 V4.0-7 
4-021 1a-8ep- 1984 90: 3¢ 88 BASRTL.SRCIB BASGET Bae: 
17 FC OB SOC#E gf BLAS -4(CCB), 7$ 
34 D TSTL ACTUAL_UNIT 
oc AS DD 9009 Cee. 
on. 
000000006 00 J re nH CALLS  BASSSOPEN. ZERO 
7E 006 F OA ‘3 6$: MOVZBL a 7 s$si0 he -(SP) 
66 1 £8 OOA CALLS 4 BAS 
FF71 CB 4 9 OOAA 7$ MOV a3 tceBy 
7 fF AB E OAF BLBC ri, 8$ 
7E 006 8F 9A 000B3 MOVZBL #BAS$K edgttuuace, -(SP) 
66 o1 Ee 9087 CALLS #1, BAS$$STOP_IO 
Jae 2 8 BA 8$ BISB2 #2. - ce) 
0 6C 91 O00BE CMPB. ss (AP), @ 
04 1€ 000C1 BGEQU 9$ 
2 D4 00¢3 CLAL FLAGS 
11 b00¢ BRB 
53 06 AB 01 ¢ EF 000C7 9S: EXTZV me. 8 “, 6(CCB), R3 
01 00 CF 900¢D CASEL 
0012 0004 00D1 10$: WORD Rent - 
09 08 ac 03 £0 00005 11$: BBS Hatt 5123 
7E 00G 8F 9A OOODA MOVZBL fakséx COrLRE » 7(SP) 
66 01 FB OOODE CALLS Sx ITLREC ath 
04 11 000E1 BRB $$ 
52 08 AC DO 000E3 128: MOVL §_LOCK_FLAGS, FLAGS 
51 2¢ DO OO0E7 13$: MOVL FLAGS, 
50 55 DO OOOEA MOVL §_TEMP_R11, RO 
000000006 00 16 O00ED JSB BASSSREC GSE 
69 16 O00F3 JSB AS$$CB_POP 
55 05 000F5 TSTL EMP_R1T 
05 13 000F7 BEQL ssi 
5B 55 DO O00F9 MOVL TEMP_R11, CCB 
69 16 OOOFC JSB BAS$S$(B_ POP 
04 OOOFE 14$: —s RET 
; Routine Size: 255 bytes, Routine Base: _BASSCODE + 0000 


335 1182 1 


o 
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ASSGET 16-Sep-1 
at 12-868 


3ep-198¢ 19:88:00 — EBasatu SRedeagor tose, 


9 
9 
: 7 1183 1 GLOBAL ROUTINE BASSGET_KEY ( ! GET indexed 
; 3 1184 1 UNIT, ! logical unit number 
; 1185 1 KEY_NO, | : | of index 
; 340 1186 1 REL_OP, ! relative relationship of keys 
; 341 1187 1 KEY, ' key to compare for 
: tg 1188 1 LOCK_FLAGS ! manual locking bits 
; 34 1189 1 ) : NOVACUE = 
3; 344 1190 1 
3; 345 1191 1 44 
3 re 1136 ! FUNCTIONAL DESCRIPTION: 
3 48 11946 1! This routine will set up the 1/0 data base for this LUN if necessary 
; 349 1195 1! and then go directly to the REC Level. When control is returned to 
5 329 1196 1! this routine, it pops the CCB off of the 1/0 system. The actual inter- 
; 23 1138 : face to RMS is done at the REC level. One record is read. 
H 3g 1199 1 ! FORMAL PARAMETERS: 
3: 354 1200 1! 
3 599 1$8) 1! UNIT. rlu.v Logical unit number 
3 329 1 8 1! KEY_NO.rl.v 
; so7 12035 1! REL_OP.rl.v 
; 358 1206 1! KEY. rt.dx 
; 359 1205 1! CLOCK_FLAGS.rlu.v] if present, bits to pass on to record level to 
3 309 1506 ! control manual record locking 
3 3e¢ 1208 1 ! IMPLICIT INPUTS: 
; 1209 1! 
; 364 1210 1! LUB$V_VA_USE virtual array use of this file 
; 365 1211 1! 
: 366 Isi¢ 1 ! IMPLICIT OUTPUTS: 
3 5er 12135 1! F ; 
; 368 1214 1! LUB$V_BLK_USE non-virtual use of this file 
; 369 1216 1! OTS$$A_CUR_LUB ointer to current control block 
: 370 1216 1! UN asic Global which contains the number of bytes read 
3 A \git : } ISBSB_STTM_TYPE the statement type 
: 37 1219 1 ! COMPLETION CODES: 
: 374 1220 1! 
s 375 1221 1! NONE 
; 376 \6s¢ 1! 
3 377 $s 1 ! SIDE EFFECTS: 
3; 378 1224 1! 
3; 379 1225 1! RECOUNT is assigned the number of bytes read. 
: $80 1556 1! signals: 
3 1 1 77 BAS$K_I0_ CHANOT (1/0 channel not open) J 
; ae 1228 1! BASSK-ILCIO CHA (illegal 1/0 channel) for foreign buffers. 
; o7 44 ' BASSK-ILLILCACC (illegal or illogical access) 
; «385 133¢ ! ten 
3 Hy 1 3 BEGIN 
; 388 1234 
; 389 1235 BUILTIN 
; 390 1 $ 
: 391 1 ACTUAL COUNT; 
; 3 1 : 
; 39 123 LITERAL 


a | 
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ou 
2 
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Sear ~ 


3 


—@ 
‘> 
~m 


K_LOCK_ARG = 5; 


GLOBAL REGISTER 
CCB = K_CCB_REG : REF BLOCK C, BYTE); 


LOCAL 
FMP : REF BLOCK C, BYTE), 
ACTUAL_UNIT, !y¥ 
TEMP_RTi, : § 
FLAGS; 


oO 
coo 


nit number, without foreign buffer 
CB for foreign buffer, or 0 


, FMP = .FP; 

‘+ 

! Check for ‘‘foreign buffers’. if the unit number exceeds 255 then a foreign 
buffer is specified. The foreign buffer is actually a unit number whose 
buffer is to receive the record which is read. The ‘foreign buffer’’ unit 

! is pushed to pick up the CB address which is passed to the REC level. Then 
! the unit pointing to the file is pushed so that the CCB points to the toga 
! ical unit which actually do the 1/0. Upon return, the necessary RAB fields 
(USZ and UBF) have been restored and two CB_POPs are done if necessary. 


ot er er ar et ae el ed ed ek et et 


TEMP_R11 = 0; 

ACTUAL_UNIT = .UNIT; 

IF (.UNIT GTR LUBSK_LUN_MAX) 
THE 


BEGIN 
LOCAL 
FORE IGN_BUFFER; 


FOREIGN BUFFER = .UNIT/BASS$K_LUN MAX; 
ACTUAL_ONIT = .UNIT MOD BASSR_LUR_MAX; 


IF (.FOREIGN_BUFFER GTRU BASSK_MAX_FOR_B) THEN BASSSSTOP (BASS$K_ILLIO_CHA); 


SINNER AA AAA A AAA MII BE 


Arai BWR 29 OO NO VEIN 0 OD NAVE WIN 0 ODNAUE WN OOONAULS AR!" OWOONAUE WN 


SHLEARFUNALSSSVRARANS LS SOLS AR Uw—=oSeSUEARAVS 


BAS$$CB_PUSH ag oat id LUBSK _LUN_MIN); 


PY oy oY oY oF oT ot ot at ot ot at bt tt tt et et et et tt 
a ee ee ee ae ee a ee a dd ed 


ROPDPOPIPIPIPIDPINININIDNYNINININYDINIPYPINY NPP NYNYININININININININININININPIPIPIPIPOPOPUPUPYPINININIPIPIPOPIPUNPY 


7 
7 
i CCB CISBSA_USER_FP) = [FMP CSFSL_SAVE_FPI; 
| . IF ( NOT .CCB CLUBSV_OPENED]) THEN BAS$S$STOP_IO (BAS$K_IO_CHANOT); 
8 TEMP_R11 = .CCB; 
8 END; 
i BASS$CB_PUSH (.ACTUAL_UNIT, LUBSK_ILUN Bin: 
re H : CCB CISBSA_USER_FP) =".FMP CSFSL_SAVE_FP); 
441 8 i If the channel is not open, give an error. 
rr 89 5 
ree | 3 IF ( NOT .CCB CLUBSV_OPENED]) THEN BASSS$STOP_IO (BASS$K_I0_CHANOT); 
44 9 '¢ 
44 9 ' Now that the data base is in place, store the statement type and go 
yr 2 directly to the REC level. 
450 9 CCB CISBSB_STTM_TYPE] = ISBSK_ST_TY_GIN; 
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cca 
IF ACTUALCOUNT () LSS K_LOCK_ARG 
FLAGS = 0 
ELSE 
BEGIN 
i" the ULK bit must set unless this is a REGARDLESS clause. 


CASE . -CCB CRABSV_ULK] FROM 0 TO 1 OF 


WWWNNNWNWNIANNWNANwrorer 


WA.NIWA AI AIR RIPPIN NINININIDD 2 2 OS SOOO OOOOCOCOOCOVNO 


IF -LOCK.FLAGS AND RABSM_RRL) NEQ 0 
FLAGS = .LOCK_FLAGS 
BASSS$STOP_I0 (BASSK_ILLRECLOC); 
vest AGS = ,LOCK_FLAGS; 
‘ BAsSSReé GIN (.KEY_NO, .REL_OP, .KEY, .TEMP_R11, .FLAGS); 
Z Now that the GET has been done, pop the CCB off the 1/0 system. 
P BASS$CB_POP (); 
i Pop the ‘‘foreign buffer’’ CB if necessary. It is kept on the CB stack until 
i now to guard against an AST closing the foreign buffer channel. 
i. LF TEMP_R11 NEQA 0) 


. TEMP_R11; 


"check for virtual array usage and set block usage. 

If .CCB CLUBSV_VA wer EQL 1 THEN BASS$STOP_IO(BASSK_ILLILLACC); 
LUB$V_BLK_USE) = 1; 

ee 

fe BASsscé_ POP™(); 


END; 'End of BASSGET_KEY 


O9FC 000 -ENTRY BASSGET_KEY, Save R2,R3,R4,R5,R6,R7,R8,R11 =; 1183 
2$ 000000006 00 9%€ 0000 MOVAB BASSSCB_POP, R8 : 
4444 0 9 Beto MOVAB BASS$SCB_PUSH, R7 : 
6 000000006 00 43 B19 MOVAB BASS$STOP_IO, R6 ; 
4 DO 0001 MOVL . FMP ; 1251 
D4 Bete CLRL TEMP_R11 : 1261. 
55 04 aC 0b0 0001C MOVL UNIT? ACTUAL_UNIT ; 1262. 
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00000077 = &F 06 Ac D 99 0 CMPL yuiT, #119 
44 1 BLEG $ 
04 AC 00000100 = &F g O2A DIVL3 4256, UNIT, FOREIGN_BUFFER 
ff : ae 90000100 : 3 § 3 at F286. tsb) s *ACTUAL_UNIT, ACTUAL_UNIT 
0000007F Hi i of Ocg CHL FOREIGN BUFFER, #137 : . 
7E 006 8F 9A 00048 MOVZBL M#BASS$K_ILLIO_CHA, =(SP) 
000000006 00 01 FB OO4F CALLS #1, SASS TOP 
: D4 096 1$ CLAL 0 
67 16 0005 JSB BAS$$CB_PUSH 
FF4C «CB 0C A& 00 0005A MOVL 12(FMP)> -180(CCB) 
7 FC oA § 9060 BLBS -4(CC 
E 006 8F 9A 00064 MOVZBL M#BAS$K_{0 CHANOT, (SP) 
$6 1 FB 0068 CALLS #1, BASSS$STOP_IO 
B DO 00068 2s MOV cB, TEMP_R11 
50 08 cE 0006 $ MNEGL RO 
52 § 00 00071 MOVL ACTUAL_UNIT, R2 
67 16 00074 JSB BAS$$CB_PUS 
FF4C CB 0C A& 00 00076 MOVL 12(FMP)> -180(CCB) 
07 FC AB 8 9007¢ L -4(CCB), 4 
7E 006 8F 9A 00080 MOVZBL #BAS$K_{0 CHANOT, -(SP) 
66 01 FB 00084 CALL #1, BASSS$STOP_IO 
FF71 CB 2C 90 00087 4$: OV Wh, -143(CCBY 
07 fF AB &9 0008¢ LBC «=Os«=1¢€¢B), 5$ 
7E 006 8F 9A 00090 MOVZBL M#BASS$K_{LLILLACC, -(SP) 
66 01 FB 00094 CALLS #1, BAS$S$STOP_IO 
FF AB 02 88 00097 S$: BISB2 #2. -1(CCB) 
05 6C 91 0009B CMPB. sé A), 
04 1E 0009E BGEQU 6$ 
4 D4 000A0 CLRL —s« FLAGS 
20 11 O00A2 BRB 10$ 
52 06 AB 01 9@ EF OO0A4 6$: EXTZV a2. #1, 6(CCB), R2 
01 00 52 CF OOOAA CASEL R2. #0. # 
0012 0004 OOOAE 7S: WORD §$-78.- 
09 14 AC 03 £0 90082 8$: BBS #3, LOCK_FLAGS, 9$ 
7E 006 8F 9A 00087 MOVZBL #BASS$K ICLRECLOC, -(SP) 
66 01 FB 000BB CALLS #1, BAS$S$STOP_IO 
04 11 OBE 8 10$ 
54 14 AC DO 000C0 93: MOVL §_LOCK_FLAGS, FLAGS 
51 OC AC 70 000C4 10$:  MOVG REL_OP, R1 
50 08 AC dO 000C8 MOVL E RO 
000000006 00 16 o9¢¢ JSB BASSSREC_GIN 
: 1 D JSB BAS$$CB_ POP 
D5 00004 TSTL  TEMP_RIT 
03 1 90006 BEQL 
5B ; bd 9900 MOVL TEMP_R11, CCB 
68 16 0000B JSB BAS$SCB_POP 
04 000DD 118: RET 
; Routine Size: 222 bytes, Routine Base: _BASSCODE + OOFF 
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GET relative 


7 


GLOBAL ae BASSGET_RECORD ( 


tmeeeere OO 


UN ep} unit number 
RECORD_NUM, relative record number 
LOCK_FCAGS manual locking bits 

) : NOVACUE = 


ee 
FUNCTIONAL DESCRIPTION: 


FPWR OODNAYL EWN OOONOUNLS WW 


PAEXAPEXQEQXD__EMN AA & & 


toners is assigned the number of bytes read. 


! 
i 
‘ This routine will set up the 1/0 data base for this LUN if necessary 
4 and then dispatch off to the UDF level. When control is returned to 
! this routine, it pops the CCB off of the 1/0 system. The actual inter- 
! face to RMS is done at the REC level. One record is read. 
} NOTE: Foreign buffers apply to GET and PUT. The LUN of the foreign buffer 
is in the upper byte of the unit number. 
FORMAL PARAMETERS: 
i UNIT. rlu.v logical unit number 
! RECORD_NUM.rl.v relative record number 
3 : CLOCK_FLAGS.rlu.vJ if present, bits to pass on to record level to 
re: } control manual record locking 
66 IMPLICIT INPUTS: 
2 68 1! OTS$$A_CUR_LUB pointer to current control block 
$ $ LUB$V_VA_USE indicates virtual array usage 
2 4 IMPLICIT OUTPUTS: 
5 18 LUBSV_BLK_USE indicates non-virtual array usage 
74 : RECOUNT Basic Global which contains the number of bytes read 
a } ISBSB_STTM_TYPE the statement type 
A COMPLETION CODES: 
79 1! NONE 
80 : 
81 ! SIDE EFFECTS: 
og ! 
8 } 
4 ‘ 
i 
i 
i 
i 
i 


GLOBAL REGISTER 
CCB = K_CCB_REG : REF BLOCK C, BYTE); 


—_ 
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AAWNAWN AAA A.A NIAAA AINA AIAN AANA 
RoRonononononony 2 2 


3 

3. 

3 8 site $: 

4 85 BASSK_IO_CHANOT (1/0 channel no open) 
4 Hs] BASSK_ILCIO_CHA (Illegal 1/0 channel) 
4 for foreign buffers 

2 4 BASSK_ILLILLACC (fllegal or illogical access) 
4 90 -- 

4 91 

4 4 BEGIN 

4 9 

4 94 BUILTIN 

5 95 

5 % ACTUALCOUNT; 

5 g 

5 98 

5 99 
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LOCAL 

FMP : REF BLOCK C, BYTE], 

ACTUAL_UNIT, ! Unit number, without foreign buffer 
gt at ' CCB for foreign buffer, or 0 


LITERAL 
K_LOCK_ARG = 3; 


FMP = .FP; 

+ 

Check for ‘‘foreign buffers’. If the unit number exceeds 255 then a foreign 
buffer is specified. The foreign buffer is actually a unit number whose 
buffer is to receive the record which is read. The ‘foreign buffer’ unit 
is pushed to pick up the CB address which is passed to the REC level. Then 
the unit pointing to the file is pushed so that the CCB points to the toga 
ical unit which actually do the 1/0. Upon return, the necessary RAB fields 


BDO OODOOOOOCO 
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(USZ and UBF) have been restored and two CB_POPs are done if necessary. 


i TEMP_R 0 


11 = 0; 
ACTUAL_UNIT = .UNIT; 


IF (.UNIT GTR LUBSK_LUN_MAX) 
THEN 


FOREIGN BUFFER = .UNIT/BASS$K_LUN MAX; 
ACTUAL_ONIT = .UNIT MOD BASSR_LUN_MAX; 


IF (.FOREIGN_BUFFER GTRU BASSK_MAX_FOR_B) THEN BASSSSTOP (BASSK_ILLIO_CHA); 


BASS$CB_PUSH (.FOREIGN_BUFFER, LUBSK_LUN_MIN); 
CCB CISBSA_USER_FP) = <FMP CSFSL_SAVE_FPI; 


IF ( NOT .CCB CLUBSV_OPENED]) THEN BAS$$STOP_IO (BAS$K_I0_CHANOT); 
TEMP_R11 = .CCB; 
END; 
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98 BASS$CB_PUSH (.ACTUAL_UNIT, LUBSK_ILUN Bim 

238 CCB CISBSA_USER_FP) =".FMP CSFSL_SAVE_FP); 

602 If the channel is not open, give an error. 

60 . 

Boe If ( NOT .CCB CLUBSV_OPENED]) THEN BASSSSTOP_IO (BASSK_IO_CHANOT); 

606 '¢ 

607 ! Now that the data base is in place, store the statement type, store the index, and gc 
608 H directly to the REC level. 

610 '  ¢¢B pi uest 06 RECNO) = .RECORD_NUM: 

611 CCB CISBSB-STTA_TYPE) = ISBSK_ST_TY_GRE; 
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7 . 
i } Check for virtual array usage and set block usage. 
oS 
6 
$3 


If .CCB CLUBSV_VA ys EQL 1 THEN BASSSSTOP_IO(BASS$K_ILLILLACC); 
CCB CLUBSV_BLK_USE) = 1; 


IF ACTUALCOUNT () LSS K_LOCK_ARG 
FLAGS = 0 
ELSE 
BEGIN 
The ULK bit must set unless this is a REGARDLESS clause. 
CASE .CCB CRABSV_ULK] FROM 0 TO 1 OF 


(OJ: 
IF (.LOCK_FLAGS AND RABSM_RRL) NEQ 0 


eu gel LASS = -LOCK.FLAGS 
BASSSSTOP_IO (BAS$K_ILLRECLOC); 


WWW AARRORORUPORIPUNINUND 2 


WN“ OODNAUES WN $O ODNOAUSWN (OO ONOUS 


C1): 
FLAGS = .LOCK_FLAGS; 
TES; 


END; 
BASSSREC_GRE (.TEMP_R11, .FLAGS); 
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64 {+ 
“ Now that the GET has been done, pop the CCB off the I/0 system. 
* 3 BASSSCB_POP (); 
645 i Pop the ‘foreign buffer CB if necessary. It is kept on the CB stack until 
ene now to guard against an AST closing the foreign buffer channel. 
648 
649 IF (.TEMP_R11 NEQA 0) 
650 THEN 
651 BEGIN 
636 CCB = .TEMP_R11; 
65 BASSSCB_POP (); 
654 END; 
655 89 
656 1 END; ‘End of BASSGET_RECORD 
09FC 00000 eENTRY BASSGET RECORD. Save R2,R3,R4,R5,R6,R7,RE,—- ; 
7 44 44443 8 9E $008 MOVAB BASSSCB_POP, R8& 
4 0006 9E 000 MOVAB BASSS$CB_PUSH, R7 
g 000000006 00 9 Bag MOVAB BASSS$STOP_IO, R6 
5 4 DO 0001 MOVL FP, FMP 
D4 QOOTA CLRL TEMP_R11 


RRS Ee LT eee re iomepeanpes aes 


BASSGET 16-Sep-1984 00:34: AX-11 Bliss-32 V4.0-74 Pp 17 
Asset 19-308-1 38 90:33:08 EBASRTL SRC 1BASG 1.832; on 
4 4 AC DO 0001 MOVL =~ UNIT, ACTUAL_UNIT : 1421. 
00000077 at g At i 0 6 cMPL NIT, +19 - : 1235, 
52 04 AC 00000100 =F g OOA DIVL3 #256, UNIT, FOREIGN_BUFFER + 1430) 
7E Q 4 AC 1 ?A EMUL Hi UNIT, #0, =(SP) + 1431 
54 4 BE 00000100 = &F 78 EDIV #256, (SP)+ ACTUAL UNIT, ACTUAL_UNIT : 
0000007F BF f pi 004 CHL FOREIGN BUFFER, #127 t 1433) 
7 00G 8F 9A 00048 MOVZBL M#BASSK_ILLIO_CHA, -(SP) : 
000000006 65 gi FB 0004F CALLS #1, BASSSSTOP : | 
9 D4 0096 1$ CLAL + 1435) 
67 «1 905 JS8 BASS$$CB_PUSH : | 
FF4C a 0c A3 10 0005A MOVL §_12(FMP)> -180(CCB) t 1436) 
FC AB f 0060 BLBS  -4(CCB) t 1438. 
E 006 8F 9A 00064 MOVZBL M#BAS$K_{0 CHANOT, -(SP) : 
$6 or FB 00068 CALLS #1, BASSS$STOP_IO : 
: DO 00068 28 MOVL CCB, TEMP_R11 + 144 
20 0 cE 9006E $ MNEGL R + 144 
5 54 D 900 1 MOVL  ACTUAL_UNIT, R2 : 
67 16 00074 JSB BAS$$CB_PUSH : 
FF4C «CB 0c A3 00 00076 MOV!  12(FMP)> -180(CCB) + 1466 
07 FC AB 8 0007¢ BLBS  -4(CCB) + 1449. 
7E 006 8F 9A 00080 MOVZBL #BAS$K_{O0 CHANOT, (SP) : 
66 01 FB 00084 CALLS #1, BASSSSTOP I ; 
£0 AB 08 AC DO 00087 4$: MOVL €orD NUM -32(CCB) t 1455) 
FF71 CB 28 90 0008C¢ MOVE #40, -143(CCB) + 1456. 
07 FF AB 9 00091 BLBC }3=E—_s«s=1: (cB), 5$ + 1460 
7E 006 8F 9A 00095 MOVZBL M#BAS$K_{LLILLACC, -(SP) : 
66 01 FB 00099 CALLS #1, BAS$S$STOP_IO : 
FF ag 02 88 0009C 5$ BISB2 #2 ~1 (CCB) + 1461) 
0 6C 91 000A0 CMPB. sé), @# + 1463. 
04 1€ 0003 BGEQU 6$ : 
33 D4 000A5 CLRL «FLAGS + 1465 | 
20 11 000A7 BRB 10$ ; 
53 06 AB 01 0¢ EF O00A9 6S: EXTZV #2, #1, 6(CCB), R3 : 1471, 
01 00 53 CF OOOAF CASEL 3, #0, #1 : 
0012 0004 00083 7$: WORD 8$-7$.- F 
09 Oc AC 03 £0 00087 8$: BBS #3, LOCK_FLAGS, 9$ : 147 
7E 006 8F 9A 9008 MOVZBL M#BAS$K_ICLRECLOC, -(SP) : 147 
66 01 FB 00C CALLS #1, BAS$S$STOP_10 : 
04 11 000¢ BRB 1 t 147 
52 0c AC DO 000C5 9s: MOVL _ LOCK_FLAGS, FLAGS : 148 
31 3 06 90¢9 10$: MOVL FLAGS + 1484 | 
0 dO 000¢C MOVL TEMP_R11, RO : | 
000000006 00 16 O00CE JSB BASSSREC. GRE ; | 
68 1 9005 JSB BAS$$CB_ POP : 1488. 
55 05 0000 TSTL TEMP_RIT > 1494 
05 13 00009 BEQL F 
58 55 00 00008 MOVL TEMP_R11, CCB + 1497. 
68 16 OODE JSB BAS$SCB_PoP > 1498 
04 O00EO 118 RET : 1501 
3; Routine Size: 225 bytes, Routine Base: _BASSCODE + 01DD 


Rs aa rer . 


BASSGET 16-Sep-1984 00:34: AX-11 Bliss-32 V4.0-742 
1-021 12-80 8= 1 8c 90:38:00 BASRTL. RC IBASGET.832;1 
3; © 1 1 GLOBAL ROUTINE BASSGET_RFA ( ! GET by RFA 

; $28 1 : 1 UNIT, ' Logical unit number 

; 660 1 1 RFA, ' 

; 661 1505 1 LOCK_FLAGS ! manual locking bits 

; 66 1 1 ) : NOVACUE = 

; 66 1 1 

; 664 1508 1 !4+ 

; 665 1298 : FUNCTIONAL DESCRIPTION: 

3 1 1511 1! This routine will set up the 1/0 data base for this LUN if necessary 

; 668 1216 1! and then dispatch off to the UDF level. When control is returned to 

; 669 1513 1! this routine, it pops the CCB off of the I/0 system. The actual inter- 
; 670 1514 1! face to RMS is done at the REC level. One record is read. 

; 671 1515 1! NOTE: Foreign buffers apply to GET and PUT. The LUN of the foreign buffer 
: O76 1218 : } is in the upper byte of the unit number. 

; 674 1518 1 ! FORMAL PARAMETERS: 

; 675 1519 1! 

; 67 1520 1! UNIT. rlu.v Logical unit number 

3 oF 1521 1! RFA_DESC.rx.r RFA address 

; 678 15 ¢ 1! CLOCK_FLAGS.rlu.vJ if present, bits to pass on to record level to 
; 679 1525 1! control manual record locking 

; 680 15246 1! 

3 ret 3 2 : } IMPLICIT INPUTS: 

; 68 1527 1! OTS$$A_CUR_LUB pointer to current control block 

; one 13 : : LUBSV_JA_USE indicates virtual array usage 

; ey 1380 : } IMPLICIT OUTPUTS: 

; 688 1336 zz LUBSV_BLK_USE indicates non-virtual array usage 

3; 689 1535 1! Basic Global which contains the number of bytes read 
3 re 1338 : } 1SBSB_STTM_TYPE the statement type 

; 69 1338 1 ! COMPLETION CODES: 

; 69 15 7! 

3 694 1538 1! NONE 

: 695 1539 1! 

; 696 1540 1 ! SIDE EFFECTS: 

3; 697 1541 1! : 

; 698 1366 1! RECOUNT is assigned the number of bytes read. 

3 +44 1545 1! Hog 

; 700 1544 1! BASSK_IO_CHANOT (1/0 channel no open) 

; 701 1545 ! : BASSK_ILCIO_CHA (Illegal 1/0 channel) 

; #8 1546 : for fore 9 buffers ; 

; 1547 1! BASSK_ILLILLACC (illegal or illogical access) 

3; 704 1548 1! 

; 705 1549 1 !e=- 

3; 706 1550 1 

; 707 1551 BEGIN 

; 708 133¢ 

; 709 155 BUILTIN 

3; 710 1554 

: 711 1555 ACTUAL COUNT; 

3 ne 1228 

. 155 GLOBAL REGISTER 

3; 714 1558 CCB = K_CCB_REG : REF BLOCK C, BYTE); 


-Sep- 234: AX-11 Bliss-32 V4.0-74 
Rage Ve=Sep-1984 91:55:00 LBASRTL SRE TBASGET 3051 
' . 
; 715 1559 
: 71 156 LOCAL 
: ay : $i ACTUAL UNITS ete ' Unit number, without foreign buffer 
; 8 i 86 TEMP RT? : ' CCB for foreign buffer, or 9 
38 : és AGS; 
: 98) : 66 LITERAL 
; g § 44 K_LOCK_ARG = 3; 
: g 5 1369 1, FMP = «FP: ; 
; i '. If the unit number exceeds 255 then a foreign 
: , 137 buffer $s specif 96." the foretgn buffer is actually a unit number sprees 
: 1% Ae | Gtseed fe ctet'es He Cpa ectalty Ttinets seam eP Esty, ihn 
: 1896 F ahs ett esthien 6 the h hat the CCB points to the log- 
: 731 1575 2 | the unit pointing to the file is pushed so tha ¢ nto, the Log | 
: it which actually do the 1/0. Upon return, the necessary 
; , : 1377 (682 and UBF) have been restored and two CB_POPs are done if necessary. 
; " TEMP_R11 = 0; 
; . 3 1280 ACTUAL_UNIT = .UNIT; 
: et 1382 IF (.UNIT GTR LUBSK_LUN_MAX) 
> 739 158 THE 
3 pee 1288 BEGIN 
; 74 
: OCAL 
: ra 1389 : ‘ FOREIGN_BUFFER; 
> 744 1588 
: R = .UNIT/BASSK_LUN MAX; 
: rte 1390 ; ACTUAL ONIT © -UNIT MOD BASSR_LUN_MAX; 
; rag 1382 3 IF (.FOREIGN_BUFFER GTRU BASSK_MAX_FOR_B) THEN BASSSSTOP (BASS$K_ILLIO_CHA); 
. 4 } 
; (.FOREIGN_BUFFER, LUBSK_LUN_MIN); 
; ray 1398 ; ete TisBSA USER FPA = [FMP CSFSL_SAVE_FPI; 
: rg 1397 IF ( NOT .CCB CLUBSV_OPENED]) THEN BASSS$STOP_IO (BASS$K_IO_CHANOT); 
: Fe 1599 TEMP_R11 = .CCB; 
3 735 a 
Be ie ee: 
: ASS$CB_PUSH (.ACTUAL_UNIT, LUBSK_ILUN_M N); 
3 35 1608 ee CISBSA USER FP4 =. FMP cSFSt SAVE FP: 
: ret 1903 If the channel is not open, give an error. 
3; fe !e 
: i 1608 IF ( NOT .CCB CLUBSV_OPENED]) THEN BASS$SSTOP_IO (BASS$K_IO_CHANOT); 
; 76 
: 68 18th i Now that the data base is in place, store the statement type, store the index, and go 
+ 768 161 directly to the REC level. 
: 955 1814 3° CHSMOVE (6, .RFA CCB CRABSY READ): 
: 771 1615 CCB CISBSB_STTM_TYPE) = ISBSR_ST_TY_GRFA; 
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N15 
1e-$ep-1986 11:55:00 EBasmtuesnesBASceT-032;1 steel 


CCB CLUBSV_BLK"USE 
IF ACTUALCOUNT () LSS K_LOCK_ARG 
FLAGS = 0 
ELSE 
BEGIN 
. "the ULK bit must set unless this is a REGARDLESS clause. 


CASE . -CCB CRABSV_ULK] FROM 0 TO 1 OF 


C0]: 
IF (-LOCK_FLAGS AND RABSM_RRL) NEQ 0 
FLAGS = .LOCK_FLAGS 


ELS 
BASSSSTOP_IO (BASSK_ILLRECLOC); 


C1): 
— = .LOCK_FLAGS; 


sass Git _GRFA (.TEMP_R11, . FLAGS); 
i Now that the GET has been done, pop the CCB off the 1/0 system. 
16 BASSSCB_POP (); 
i Pop the ‘‘foreign buffer’’ CB if necessary. It is kept on the CB stack until 
i _now to guard against an AST closing the foreign buffer channel. 


"check for virtual array usage and set block usage. 
IF .CCB CLUBSV_VA re. EQL 1 THEN BASS$STOP_IO(BASSK_ILLILLACC); 
ie .° TEMP_R11 NEQA 0) 


.TEMP_R11; 
iia! POP™(); 
END; ‘End of BASSGET_RFA 
oBFC 00000 -ENTRY BASSGET_RFA, Save R2,R3.RG,R5,RO.R7.RE,RI.- 1502. 
9 000000006 00 9E 0000 MOVAB BASSSCB_POP, R9 : 
g 90000006 0 9E 0000 MOVAB BASS$$CB7PUSH, R : 
00000006 90 9 9010 MOVAB BASS$STOP_IO. R : 
3 D OD 001 MOVL PRS FMP : 156 
56 D4 OOO1A CLRL —«*TEMP_R11 > 157 


| BASSGET 
1-021 


at 
00000077 F 


3 ge AC 00000100 
ef 2? : SE 00000100 
0000007F Hi 
43 006 
000000006 0 
FF4C §6CB 0c 
07 FC 
re 00 
6 
56 
50 
52 
FF4C §6CB 0c 
07 FC 
7E 00 
67 
10 AB 08 BC 
FF71 CB 
07 FF 
7E 006 
67 
FF AB 
03 
53 06 AB 01 
01 00 
0012 
09 Oc AC 
7E 006 
67 
52 0c 
51 
50 
000000006 
58 
3; Routine Size: 226 bytes, Routine Base: 


; 817 1661 1 


04 


POO wWoiooowsl yr > 


WOO MM MLO 


AuOM18 OVW POOWO OMonoeoo 
DOVE OOGNMO LS |W SWMOMLONM— 


_BASSCODE 


ISSeo-19Be 90:54:09 


H Hise 
th : 
78 9 
Te 90045 
9A 00048 
FB QO04F 
D4 $828 
18 : 58 
Dd Q5A 
4 0060 
A 00064 
FB 44604 
DO 00068 
cf QO06E 
dO 00071 
is 00074 
D0 00076 
E8 0007C 
9A 00080 
FB 00084 
$8 0087 
0 00080 
E9 00092 
9A 44844 
FB O009A 
88 00090 
91 OO0A1 
1E QOOAS 
D4 O00A6 
11 QOOA8 
EF QOOAA 
CF 00080 
00084 
ey 4-44 
A 0008D 
FB 000C1 
11 000C4 
DO 000C6 
4 aRee 
DO O00CD 
16 00000 
16 00006 
if 0008 
13 QOODA 
DO 000DC 
16 QOODF 
04 00NE1 
O2BE 


Sep- 
~ep- 


— 
wn 


wr 
PAM 


rs 
ad 


9$: 
10$: 


11$: 


UNIT. ACTUAL UNIT 


2c 
N—Ves 


FOREIGN. BUFFER, #1 


WBASSK_ILLIO CHA, =(SP) 
“8 BASSS$STOP 


BAS$$CB_PUSH 
Uh 4a -180(CCB) 


HBASSK io CHANOT , -(SP) 


BASSSSTO 
t C6. fe ahs 


$CB_PUSH 
12(FMP); =180(CCB) 
CCB) 


WBASSK fo CHANOT , -(SP) 
. BAS$$STO 


i 
a #i, aaa R3 
R35, #0, #1 


oli” -(SP) 


ee FLAGS, FLAGS 


AX-11 Bliss-32 V4.0-74 
BASRTL.SRC JBASGET .B32; 


#56, UNIT, FOREIGN_BUFFER 
ON -(SP)~ 
4256 (SP)+,° ACTUAL UNIT, ACTUAL_UNI1 


— + — 
owe WN 


16 

BASSGET 1hese -1984 00:34: AX-11 Bliss-32 V4.0-74 
8834 ba aet 1 90:33:08 BASRTL .SRCIBASGET .B32; 
; 818 1666 1 

; 819 1665 1 END 'End of module - BASS$GET 

3 539 1664 1 

; 821 1665 0 ELUDOM 

3 PSECT SUMMARY 

: Name Bytes Attributes 

: _BASSCODE 928 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

; Library Statistics 

Be i Seta Ta 5 elie ee Pentre fe Symbols scocs<se Pages Processing 

$ File Total Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 4 0 581 00:01.2 

3 COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACE/LIS=LIS$:BASGET/OBJ=OBJ$:BASGET MSRC$:BASGET/UPDATE=(ENH$:BASGET) 

sizes 928 code + 0 data bytes 


Run Time: 3¢éu. 
Elapsed Time: 00:45.4 
Lines/CPU Min: 4770 
Lexemes/CPU-Min: 26469 
yam | Used: 159 pages 
Compilation Complete 
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